Math 664 Project

library(readr)
library(ggplot2)
library(mosaic)
library(dplyr)
library(mosaicCore)
library(RColorBrewer)
HateCrimes <- read_csv("NYPD_Hate_Crimes.csv")

What Assaults are most common among each Bias/Borough Group?

Bias

bias <- as.vector(HateCrimes$`Bias Motive Description`) 

bias <- as.matrix(table(bias))
bias

                                  [,1]
60 YRS AND OLDER                     1
ANTI-ARAB                            7
ANTI-ASIAN                         178
ANTI-BLACK                         114
ANTI-BUDDHIST                        2
ANTI-CATHOLIC                       24
ANTI-FEMALE                         14
ANTI-FEMALE HOMOSEXUAL (LESBIAN)    15
ANTI-GENDER NON-CONFORMING           6
ANTI-HINDU                           2
ANTI-HISPANIC                       19
ANTI-JEHOVAHS WITNESS                1
ANTI-JEWISH                        592
ANTI-LGBT (MIXED GROUP)             11
ANTI-MALE HOMOSEXUAL (GAY)         158
ANTI-MULTI-RACIAL GROUPS             3
ANTI-MUSLIM                         31
ANTI-OTHER ETHNICITY                22
ANTI-OTHER RELIGION                  2
ANTI-PHYSICAL DISABILITY             1
ANTI-RELIGIOUS PRACTICE GENERALLY    2
ANTI-TRANSGENDER                    35
ANTI-WHITE                          56

mypalette<-brewer.pal(7,"BuGn") 

barchart(bias, main = "Bar Chart of Bias" , col = mypalette)

sixtyyrs <- HateCrimes %>% filter(`Bias Motive Description` == "60 YRS AND OLDER")
anti_arab <- HateCrimes %>% filter(`Bias Motive Description` == "ANTI-ARAB")
anti_asain <- HateCrimes %>% filter(`Bias Motive Description` == "ANTI-ASIAN")
anti_black <- HateCrimes %>% filter(`Bias Motive Description` == "ANTI-BLACK")
anti_buddhist <- HateCrimes %>% filter(`Bias Motive Description` == "ANTI-BUDDHIST")
anti_catholic <- HateCrimes %>% filter(`Bias Motive Description` == "ANTI-CATHOLIC")
anti_female <- HateCrimes %>% filter(`Bias Motive Description` == "ANTI-FEMALE")
anti_lesbian <- HateCrimes %>% filter(`Bias Motive Description` == "ANTI-FEMALE HOMOSEXUAL (LESBIAN)")
anti_gendernonconforming <- HateCrimes %>% filter(`Bias Motive Description` == "ANTI-GENDER NON-CONFORMING")
anti_hindu <- HateCrimes %>% filter(`Bias Motive Description` == "ANTI-HINDU")
anti_hispanic <- HateCrimes %>% filter(`Bias Motive Description` == "ANTI-HISPANIC")
anti_jehovas<- HateCrimes %>% filter(`Bias Motive Description` == "ANTI-JEHOVAHS WITNESS")
anti_jewish <- HateCrimes %>% filter(`Bias Motive Description` == "ANTI-JEWISH")
anti_lgbt <- HateCrimes %>% filter(`Bias Motive Description` == "ANTI-LGBT (MIXED GROUP)")
anti_gay <- HateCrimes %>% filter(`Bias Motive Description` == "ANTI-MALE HOMOSEXUAL (GAY)")
anti_multiracial <- HateCrimes %>% filter(`Bias Motive Description` == "ANTI-MULTI-RACIAL GROUPS")
anti_muslim <- HateCrimes %>% filter(`Bias Motive Description` == "ANTI-MUSLIM")
anti_otherethnicity <- HateCrimes %>% filter(`Bias Motive Description` == "ANTI-OTHER ETHNICITY")
anti_otherreligion <- HateCrimes %>% filter(`Bias Motive Description` == "ANTI-OTHER RELIGION")
anti_physicaldis <- HateCrimes %>% filter(`Bias Motive Description` == "ANTI-PHYSICAL DISABILITY")
anti_religion <- HateCrimes %>% filter(`Bias Motive Description` == "ANTI-RELIGIOUS PRACTICE GENERALLY")
anti_trans <- HateCrimes %>% filter(`Bias Motive Description` == "ANTI-TRANSGENDER")
anti_white <- HateCrimes %>% filter(`Bias Motive Description` == "ANTI-WHITE")

60 Yrs

assaults_60yrs <- as.vector(sixtyyrs$`Offense Description`) 

assaults_60yrs <- as.matrix(table(assaults_60yrs))
assaults_60yrs

              [,1]
GRAND LARCENY    1

Anti-Arab

assaults_anti_arab <- as.vector(anti_arab$`Offense Description`) 

assaults_anti_arab <- as.matrix(table(assaults_anti_arab))
assaults_anti_arab

                               [,1]
ASSAULT 3 & RELATED OFFENSES      1
CRIMINAL MISCHIEF & RELATED OF    4
MISCELLANEOUS PENAL LAW           1
OFF. AGNST PUB ORD SENSBLTY &     1

barchart(assaults_anti_arab, main = "Bar Chart of Assaults with Anti-Arab Bias" , col = mypalette)

Anti-Asain

assaults_anti_asain <- as.vector(anti_asain$`Offense Description`) 

assaults_anti_asain<- as.matrix(table(assaults_anti_asain))
assaults_anti_asain

                               [,1]
ASSAULT 3 & RELATED OFFENSES     60
CRIMINAL MISCHIEF & RELATED OF   16
FELONY ASSAULT                   36
GRAND LARCENY                     2
HARRASSMENT 2                     2
MISCELLANEOUS PENAL LAW          13
MURDER & NON-NEGL. MANSLAUGHTE    3
OFF. AGNST PUB ORD SENSBLTY &    37
ROBBERY                           8
SEX CRIMES                        1

barchart(assaults_anti_asain, main = "Bar Chart of Assaults with Anti-Asain Bias" , col = mypalette)

Anti-Black

assaults_anti_black <- as.vector(anti_black$`Offense Description`) 

assaults_anti_black<- as.matrix(table(assaults_anti_black))
assaults_anti_black

                               [,1]
ASSAULT 3 & RELATED OFFENSES      9
CRIMINAL MISCHIEF & RELATED OF   60
CRIMINAL TRESPASS                 1
FELONY ASSAULT                   10
HARRASSMENT 2                     1
MISCELLANEOUS PENAL LAW          15
OFF. AGNST PUB ORD SENSBLTY &    18

barchart(assaults_anti_black, main = "Bar Chart of Assaults with Anti-Black Bias" , col = mypalette)

Anti-Buddhist

assaults_anti_buddhist <- as.vector(anti_buddhist$`Offense Description`) 

assaults_anti_buddhist<- as.matrix(table(assaults_anti_buddhist))
assaults_anti_buddhist

                               [,1]
CRIMINAL MISCHIEF & RELATED OF    2

barchart(assaults_anti_buddhist, main = "Bar Chart of Assaults with Anti_Buddhist Bias" , col = mypalette)

Anti-Catholic

assaults_anti_catholic <- as.vector(anti_catholic$`Offense Description`) 

assaults_anti_catholic<- as.matrix(table(assaults_anti_catholic))
assaults_anti_catholic

                               [,1]
BURGLARY                          1
CRIMINAL MISCHIEF & RELATED OF   19
MISCELLANEOUS PENAL LAW           2
OFF. AGNST PUB ORD SENSBLTY &     1
PETIT LARCENY                     1

barchart(assaults_anti_catholic, main = "Bar Chart of Assaults with Anti-Catholic Bias" , col = mypalette)

Anti-Female

assaults_anti_female <- as.vector(anti_female$`Offense Description`) 

assaults_anti_female<- as.matrix(table(assaults_anti_female))
assaults_anti_female

                             [,1]
ASSAULT 3 & RELATED OFFENSES   13
ROBBERY                         1

barchart(assaults_anti_female, main = "Bar Chart of Assaults with Anti-Female Bias" , col = mypalette)

Anti-Lesbian

assaults_anti_lesbian <- as.vector(anti_lesbian$`Offense Description`) 

assaults_anti_lesbian<- as.matrix(table(assaults_anti_lesbian))
assaults_anti_lesbian

                              [,1]
ASSAULT 3 & RELATED OFFENSES     3
FELONY ASSAULT                   7
MISCELLANEOUS PENAL LAW          2
OFF. AGNST PUB ORD SENSBLTY &    2
SEX CRIMES                       1

barchart(assaults_anti_lesbian, main = "Bar Chart of Assaults with Anti-Lesbian Bias" , col = mypalette)

Anti-Gender Non-Conforming

assaults_anti_gendernonconforming <- as.vector(anti_gendernonconforming$`Offense Description`) 

assaults_anti_gendernonconforming<- as.matrix(table(assaults_anti_gendernonconforming))
assaults_anti_gendernonconforming

                             [,1]
ASSAULT 3 & RELATED OFFENSES    2
FELONY ASSAULT                  3
ROBBERY                         1

barchart(assaults_anti_gendernonconforming, main = "Bar Chart of Assaults with Anti-Gender Non-Conforming Bias" , col = mypalette)

Anti-Hindu

assaults_anti_hindu <- as.vector(anti_hindu$`Offense Description`) 

assaults_anti_hindu<- as.matrix(table(assaults_anti_hindu))
assaults_anti_hindu

                               [,1]
ASSAULT 3 & RELATED OFFENSES      1
CRIMINAL MISCHIEF & RELATED OF    1

barchart(assaults_anti_hindu, main = "Bar Chart of Assaults with Anti-Hindu Bias" , col = mypalette)

Anti-Hispanic

assaults_anti_hispanic <- as.vector(anti_hispanic$`Offense Description`) 

assaults_anti_hispanic<- as.matrix(table(assaults_anti_hispanic))
assaults_anti_hispanic

                               [,1]
ASSAULT 3 & RELATED OFFENSES      4
CRIMINAL MISCHIEF & RELATED OF    5
FELONY ASSAULT                    7
MISCELLANEOUS PENAL LAW           1
OFF. AGNST PUB ORD SENSBLTY &     1
ROBBERY                           1

barchart(assaults_anti_hispanic, main = "Bar Chart of Assaults with Anti-Hispanic Bias" , col = mypalette)

Anti-Jehovas Witnesses

assaults_anti_jehovas <- as.vector(anti_jehovas$`Offense Description`) 

assaults_anti_jehovas<- as.matrix(table(assaults_anti_jehovas))
assaults_anti_jehovas

                              [,1]
OFF. AGNST PUB ORD SENSBLTY &    1

barchart(assaults_anti_jehovas, main = "Bar Chart of Assaults with Anti-Jehovas Witnesses Bias" , col = mypalette)

Anti-Jewish

assaults_anti_jewish <- as.vector(anti_jewish$`Offense Description`) 

assaults_anti_jewish<- as.matrix(table(assaults_anti_jewish))
assaults_anti_jewish

                               [,1]
ASSAULT 3 & RELATED OFFENSES     35
BURGLARY                          5
CRIMINAL MISCHIEF & RELATED OF  166
CRIMINAL TRESPASS                 1
FELONY ASSAULT                   22
FRAUDS                            1
GRAND LARCENY                    15
HARRASSMENT 2                     6
INVESTIGATIONS/COMPLAINTS ONLY    1
MISCELLANEOUS PENAL LAW         274
OFF. AGNST PUB ORD SENSBLTY &    60
PETIT LARCENY                     1
ROBBERY                           5

barchart(assaults_anti_jewish, main = "Bar Chart of Assaults with Anti-Jewish Bias" , col = mypalette)

Anti-LGBT

assaults_anti_lgbt <- as.vector(anti_lgbt$`Offense Description`) 

assaults_anti_lgbt<- as.matrix(table(assaults_anti_lgbt))
assaults_anti_lgbt

                               [,1]
ASSAULT 3 & RELATED OFFENSES      2
CRIMINAL MISCHIEF & RELATED OF    5
MISCELLANEOUS PENAL LAW           2
OFF. AGNST PUB ORD SENSBLTY &     2

barchart(assaults_anti_lgbt, main = "Bar Chart of Assaults with Anti-LGBT Bias" , col = mypalette)

Anti-Gay

assaults_anti_gay <- as.vector(anti_gay$`Offense Description`) 

assaults_anti_gay<- as.matrix(table(assaults_anti_gay))
assaults_anti_gay

                               [,1]
ASSAULT 3 & RELATED OFFENSES     51
CRIMINAL MISCHIEF & RELATED OF   26
FELONY ASSAULT                   32
HARRASSMENT 2                     3
MISCELLANEOUS PENAL LAW           8
MURDER & NON-NEGL. MANSLAUGHTE    1
OFF. AGNST PUB ORD SENSBLTY &    20
ROBBERY                          16
SEX CRIMES                        1

barchart(assaults_anti_gay, main = "Bar Chart of Assaults with Anti-Gay Bias" , col = mypalette)

Anti-Multiracial Groups

assaults_anti_multiracial <- as.vector(anti_multiracial$`Offense Description`) 

assaults_anti_multiracial<- as.matrix(table(assaults_anti_multiracial))
assaults_anti_multiracial

                               [,1]
ASSAULT 3 & RELATED OFFENSES      1
CRIMINAL MISCHIEF & RELATED OF    1
MISCELLANEOUS PENAL LAW           1

barchart(assaults_anti_multiracial, main = "Bar Chart of Assaults with Anti-Multiracial Groups Bias" , col = mypalette)

Anti-Muslim

assaults_anti_muslim <- as.vector(anti_muslim$`Offense Description`) 

assaults_anti_muslim<- as.matrix(table(assaults_anti_muslim))
assaults_anti_muslim

                               [,1]
ASSAULT 3 & RELATED OFFENSES      6
CRIMINAL MISCHIEF & RELATED OF    5
FELONY ASSAULT                    6
GRAND LARCENY                     1
HARRASSMENT 2                     1
OFF. AGNST PUB ORD SENSBLTY &     8
ROBBERY                           4

barchart(assaults_anti_muslim, main = "Bar Chart of Assaults with Anti-Muslim Bias" , col = mypalette)

Anti-Other Ethnicity

assaults_anti_otherethnicity <- as.vector(anti_otherethnicity$`Offense Description`) 

assaults_anti_otherethnicity<- as.matrix(table(assaults_anti_otherethnicity))
assaults_anti_otherethnicity

                               [,1]
ASSAULT 3 & RELATED OFFENSES      5
CRIMINAL MISCHIEF & RELATED OF    8
FELONY ASSAULT                    1
MISCELLANEOUS PENAL LAW           4
OFF. AGNST PUB ORD SENSBLTY &     4

barchart(assaults_anti_otherethnicity, main = "Bar Chart of Assaults with Anti-Other Ethnicity Bias" , col = mypalette)

Anti-Other Religion

assaults_anti_otherreligion <- as.vector(anti_otherreligion$`Offense Description`) 

assaults_anti_otherreligion<- as.matrix(table(assaults_anti_otherreligion))
assaults_anti_otherreligion

                               [,1]
CRIMINAL MISCHIEF & RELATED OF    1
MISCELLANEOUS PENAL LAW           1

barchart(assaults_anti_otherreligion, main = "Bar Chart of Assaults with Anti-Other Religion Bias" , col = mypalette)

Anti-Physical Disability

assaults_anti_physicaldis <- as.vector(anti_physicaldis$`Offense Description`) 

assaults_anti_physicaldis<- as.matrix(table(assaults_anti_physicaldis))
assaults_anti_physicaldis

                        [,1]
MISCELLANEOUS PENAL LAW    1

barchart(assaults_anti_physicaldis, main = "Bar Chart of Assaults with Anti-Physical Disability Bias" , col = mypalette)

Anti-Religion Practices Generally

assaults_anti_religion <- as.vector(anti_religion$`Offense Description`) 

assaults_anti_religion<- as.matrix(table(assaults_anti_religion))
assaults_anti_religion

                               [,1]
CRIMINAL MISCHIEF & RELATED OF    1
MISCELLANEOUS PENAL LAW           1

barchart(assaults_anti_religion, main = "Bar Chart of Assaults with Anti-Religion Practices Generally Bias" , col = mypalette)

Anti-Transgender

assaults_anti_trans <- as.vector(anti_trans$`Offense Description`) 

assaults_anti_trans<- as.matrix(table(assaults_anti_trans))
assaults_anti_trans

                               [,1]
ASSAULT 3 & RELATED OFFENSES     17
CRIMINAL MISCHIEF & RELATED OF    2
DANGEROUS WEAPONS                 2
FELONY ASSAULT                    9
MISCELLANEOUS PENAL LAW           1
OFF. AGNST PUB ORD SENSBLTY &     3
ROBBERY                           1

barchart(assaults_anti_trans, main = "Bar Chart of Assaults with Anti-Transgender Bias" , col = mypalette)

Anti-White

assaults_anti_white <- as.vector(anti_white$`Offense Description`) 

assaults_anti_white<- as.matrix(table(assaults_anti_white))
assaults_anti_white

                               [,1]
ASSAULT 3 & RELATED OFFENSES     22
CRIMINAL MISCHIEF & RELATED OF    9
FELONY ASSAULT                   15
GRAND LARCENY                     1
HARRASSMENT 2                     1
OFF. AGNST PUB ORD SENSBLTY &     6
RAPE                              1
ROBBERY                           1

barchart(assaults_anti_white, main = "Bar Chart of Assaults with Anti-White Bias" , col = mypalette)

Borough

borough <- as.vector(HateCrimes$`Patrol Borough Name`) 

borough <- as.matrix(table(borough))
borough

                          [,1]
PATROL BORO BKLYN NORTH    198
PATROL BORO BKLYN SOUTH    243
PATROL BORO BRONX          110
PATROL BORO MAN NORTH      167
PATROL BORO MAN SOUTH      295
PATROL BORO QUEENS NORTH   152
PATROL BORO QUEENS SOUTH    83
PATROL BORO STATEN ISLAND   48

mypalette<-brewer.pal(7,"BuGn") 

barchart(borough, main = "Bar Chart of Borough" , col = mypalette)

bklyn_north <- HateCrimes %>% filter(`Patrol Borough Name` == "PATROL BORO BKLYN NORTH")
bklyn_south <- HateCrimes %>% filter(`Patrol Borough Name` == "PATROL BORO BKLYN SOUTH")
bronx <- HateCrimes %>% filter(`Patrol Borough Name` == "PATROL BORO BRONX")
man_north <- HateCrimes %>% filter(`Patrol Borough Name` == "PATROL BORO MAN NORTH")
man_south <- HateCrimes %>% filter(`Patrol Borough Name` == "PATROL BORO MAN SOUTH")
queens_north <- HateCrimes %>% filter(`Patrol Borough Name` == "PATROL BORO QUEENS NORTH")
queens_south <- HateCrimes %>% filter(`Patrol Borough Name` == "PATROL BORO QUEENS SOUTH")
staten_island <- HateCrimes %>% filter(`Patrol Borough Name` == "PATROL BORO STATEN ISLAND")

Brooklyn North

assaults_bklyn_north <- as.vector(bklyn_north$`Offense Description`) 

assaults_bklyn_north<- as.matrix(table(assaults_bklyn_north))
assaults_bklyn_north

                               [,1]
ASSAULT 3 & RELATED OFFENSES     39
CRIMINAL MISCHIEF & RELATED OF   41
FELONY ASSAULT                   28
GRAND LARCENY                     8
HARRASSMENT 2                     4
MISCELLANEOUS PENAL LAW          45
OFF. AGNST PUB ORD SENSBLTY &    25
ROBBERY                           8

barchart(assaults_bklyn_north, main = "Bar Chart of Assaults in Brooklyn North" , col = mypalette)

Brooklyn South

assaults_bklyn_south <- as.vector(bklyn_south$`Offense Description`) 

assaults_bklyn_south<- as.matrix(table(assaults_bklyn_south))
assaults_bklyn_south

                               [,1]
ASSAULT 3 & RELATED OFFENSES     40
BURGLARY                          5
CRIMINAL MISCHIEF & RELATED OF   60
CRIMINAL TRESPASS                 1
DANGEROUS WEAPONS                 1
FELONY ASSAULT                   13
GRAND LARCENY                     6
HARRASSMENT 2                     3
MISCELLANEOUS PENAL LAW          78
MURDER & NON-NEGL. MANSLAUGHTE    1
OFF. AGNST PUB ORD SENSBLTY &    27
ROBBERY                           8

barchart(assaults_bklyn_south, main = "Bar Chart of Assaults in Brooklyn South" , col = mypalette)

Bronx

assaults_bronx <- as.vector(bronx$`Offense Description`) 

assaults_bronx<- as.matrix(table(assaults_bronx))
assaults_bronx

                               [,1]
ASSAULT 3 & RELATED OFFENSES     16
BURGLARY                          1
CRIMINAL MISCHIEF & RELATED OF   39
CRIMINAL TRESPASS                 1
FELONY ASSAULT                   16
HARRASSMENT 2                     1
INVESTIGATIONS/COMPLAINTS ONLY    1
MISCELLANEOUS PENAL LAW          24
OFF. AGNST PUB ORD SENSBLTY &     4
RAPE                              1
ROBBERY                           6

barchart(assaults_bronx, main = "Bar Chart of Assaults in Bronx" , col = mypalette)

Manhattan North

assaults_man_north <- as.vector(man_north$`Offense Description`) 

assaults_man_north<- as.matrix(table(assaults_man_north))
assaults_man_north

                               [,1]
ASSAULT 3 & RELATED OFFENSES     23
CRIMINAL MISCHIEF & RELATED OF   38
FELONY ASSAULT                   17
GRAND LARCENY                     2
HARRASSMENT 2                     1
MISCELLANEOUS PENAL LAW          55
MURDER & NON-NEGL. MANSLAUGHTE    2
OFF. AGNST PUB ORD SENSBLTY &    26
PETIT LARCENY                     1
ROBBERY                           2

barchart(assaults_man_north, main = "Bar Chart of Assaults in Manhattan North" , col = mypalette)

Manhattan South

assaults_man_south <- as.vector(man_south$`Offense Description`) 

assaults_man_south<- as.matrix(table(assaults_man_south))
assaults_man_south

                               [,1]
ASSAULT 3 & RELATED OFFENSES     63
CRIMINAL MISCHIEF & RELATED OF   56
FELONY ASSAULT                   49
GRAND LARCENY                     3
HARRASSMENT 2                     1
MISCELLANEOUS PENAL LAW          57
OFF. AGNST PUB ORD SENSBLTY &    53
PETIT LARCENY                     1
ROBBERY                           9
SEX CRIMES                        3

barchart(assaults_man_south, main = "Bar Chart of Assaults in Manhattan South" , col = mypalette)

Queens North

assaults_queens_north <- as.vector(queens_north$`Offense Description`) 

assaults_queens_north<- as.matrix(table(assaults_queens_north))
assaults_queens_north

                               [,1]
ASSAULT 3 & RELATED OFFENSES     32
CRIMINAL MISCHIEF & RELATED OF   54
FELONY ASSAULT                   12
FRAUDS                            1
GRAND LARCENY                     1
HARRASSMENT 2                     2
MISCELLANEOUS PENAL LAW          39
OFF. AGNST PUB ORD SENSBLTY &     9
ROBBERY                           2

barchart(assaults_queens_north, main = "Bar Chart of Assaults in Queens North" , col = mypalette)

Queens South

assaults_queens_south <- as.vector(queens_south$`Offense Description`) 

assaults_queens_south<- as.matrix(table(assaults_queens_south))
assaults_queens_south

                               [,1]
ASSAULT 3 & RELATED OFFENSES     12
CRIMINAL MISCHIEF & RELATED OF   19
DANGEROUS WEAPONS                 1
FELONY ASSAULT                   10
HARRASSMENT 2                     2
MISCELLANEOUS PENAL LAW          19
MURDER & NON-NEGL. MANSLAUGHTE    1
OFF. AGNST PUB ORD SENSBLTY &    17
ROBBERY                           2

barchart(assaults_queens_south, main = "Bar Chart of Assaults in Queens South" , col = mypalette)

Staten Island

assaults_staten_island <- as.vector(staten_island$`Offense Description`) 

assaults_staten_island<- as.matrix(table(assaults_staten_island))
assaults_staten_island

                               [,1]
ASSAULT 3 & RELATED OFFENSES      7
CRIMINAL MISCHIEF & RELATED OF   24
FELONY ASSAULT                    3
MISCELLANEOUS PENAL LAW          10
OFF. AGNST PUB ORD SENSBLTY &     3
ROBBERY                           1

barchart(assaults_staten_island, main = "Bar Chart of Assaults in Staten Island" , col = mypalette)

Bias group assaulted the most in each borough

Brooklyn North

bias_bklyn_north <- as.vector(bklyn_north$`Bias Motive Description`) 

bias_bklyn_north<- as.matrix(table(bias_bklyn_north))
bias_bklyn_north

                                 [,1]
ANTI-ARAB                           1
ANTI-ASIAN                         15
ANTI-BLACK                         17
ANTI-CATHOLIC                       1
ANTI-FEMALE                        14
ANTI-FEMALE HOMOSEXUAL (LESBIAN)    2
ANTI-HISPANIC                       3
ANTI-JEWISH                       100
ANTI-LGBT (MIXED GROUP)             1
ANTI-MALE HOMOSEXUAL (GAY)         24
ANTI-MUSLIM                         3
ANTI-OTHER ETHNICITY                3
ANTI-TRANSGENDER                    7
ANTI-WHITE                          7

barchart(bias_bklyn_north, main = "Bar Chart of Bias in Brooklyn North" , col = mypalette)

Brooklyn South

bias_bklyn_south <- as.vector(bklyn_south$`Bias Motive Description`) 

bias_bklyn_south<- as.matrix(table(bias_bklyn_south))
bias_bklyn_south

                                  [,1]
ANTI-ARAB                            3
ANTI-ASIAN                          21
ANTI-BLACK                          16
ANTI-CATHOLIC                        7
ANTI-GENDER NON-CONFORMING           1
ANTI-HISPANIC                        2
ANTI-JEWISH                        158
ANTI-LGBT (MIXED GROUP)              1
ANTI-MALE HOMOSEXUAL (GAY)          20
ANTI-MUSLIM                          6
ANTI-OTHER RELIGION                  1
ANTI-RELIGIOUS PRACTICE GENERALLY    1
ANTI-TRANSGENDER                     2
ANTI-WHITE                           4

barchart(bias_bklyn_south, main = "Bar Chart of Bias in Brooklyn South" , col = mypalette)

Bronx

bias_bronx <- as.vector(bronx$`Bias Motive Description`) 

bias_bronx<- as.matrix(table(bias_bronx))
bias_bronx

                                 [,1]
ANTI-ASIAN                          8
ANTI-BLACK                          9
ANTI-CATHOLIC                       2
ANTI-FEMALE HOMOSEXUAL (LESBIAN)    3
ANTI-HISPANIC                       4
ANTI-JEWISH                        51
ANTI-LGBT (MIXED GROUP)             1
ANTI-MALE HOMOSEXUAL (GAY)         13
ANTI-MUSLIM                         6
ANTI-TRANSGENDER                    5
ANTI-WHITE                          8

barchart(bias_bronx, main = "Bar Chart of Bias in Bronx" , col = mypalette)

Manhattan North

bias_man_north <- as.vector(man_north$`Bias Motive Description`) 

bias_man_north<- as.matrix(table(bias_man_north))
bias_man_north

                                 [,1]
ANTI-ARAB                           1
ANTI-ASIAN                         19
ANTI-BLACK                         14
ANTI-CATHOLIC                       3
ANTI-FEMALE HOMOSEXUAL (LESBIAN)    6
ANTI-GENDER NON-CONFORMING          3
ANTI-HISPANIC                       1
ANTI-JEWISH                        75
ANTI-LGBT (MIXED GROUP)             3
ANTI-MALE HOMOSEXUAL (GAY)         23
ANTI-MULTI-RACIAL GROUPS            1
ANTI-MUSLIM                         1
ANTI-OTHER ETHNICITY                5
ANTI-PHYSICAL DISABILITY            1
ANTI-TRANSGENDER                    3
ANTI-WHITE                          8

barchart(bias_man_north, main = "Bar Chart of Bias in Manhattan North" , col = mypalette)

Manhattan South

bias_man_south <- as.vector(man_south$`Bias Motive Description`) 

bias_man_south<- as.matrix(table(bias_man_south))
bias_man_south

                                 [,1]
ANTI-ARAB                           1
ANTI-ASIAN                         80
ANTI-BLACK                         17
ANTI-BUDDHIST                       1
ANTI-CATHOLIC                       6
ANTI-FEMALE HOMOSEXUAL (LESBIAN)    4
ANTI-HISPANIC                       3
ANTI-JEHOVAHS WITNESS               1
ANTI-JEWISH                       100
ANTI-LGBT (MIXED GROUP)             4
ANTI-MALE HOMOSEXUAL (GAY)         47
ANTI-MULTI-RACIAL GROUPS            2
ANTI-MUSLIM                         2
ANTI-OTHER ETHNICITY                6
ANTI-TRANSGENDER                    3
ANTI-WHITE                         18

barchart(bias_man_south, main = "Bar Chart of Bias in Manhattan South" , col = mypalette)

Queens North

bias_queens_north <- as.vector(queens_north$`Bias Motive Description`) 

bias_queens_north<- as.matrix(table(bias_queens_north))
bias_queens_north

                                  [,1]
60 YRS AND OLDER                     1
ANTI-ARAB                            1
ANTI-ASIAN                          25
ANTI-BLACK                          15
ANTI-BUDDHIST                        1
ANTI-CATHOLIC                        2
ANTI-GENDER NON-CONFORMING           2
ANTI-HINDU                           1
ANTI-HISPANIC                        3
ANTI-JEWISH                         60
ANTI-LGBT (MIXED GROUP)              1
ANTI-MALE HOMOSEXUAL (GAY)          16
ANTI-MUSLIM                          6
ANTI-OTHER ETHNICITY                 3
ANTI-OTHER RELIGION                  1
ANTI-RELIGIOUS PRACTICE GENERALLY    1
ANTI-TRANSGENDER                    12
ANTI-WHITE                           1

barchart(bias_queens_north, main = "Bar Chart of Bias in Queens North" , col = mypalette)

Queens South

bias_queens_south <- as.vector(queens_south$`Bias Motive Description`) 

bias_queens_south<- as.matrix(table(bias_queens_south))
bias_queens_south

                           [,1]
ANTI-ASIAN                    7
ANTI-BLACK                    9
ANTI-CATHOLIC                 3
ANTI-HINDU                    1
ANTI-HISPANIC                 2
ANTI-JEWISH                  30
ANTI-MALE HOMOSEXUAL (GAY)   12
ANTI-MUSLIM                   6
ANTI-OTHER ETHNICITY          3
ANTI-TRANSGENDER              3
ANTI-WHITE                    7

barchart(bias_queens_south, main = "Bar Chart of Bias in Queens South" , col = mypalette)

Staten Island

bias_staten_island <- as.vector(staten_island$`Bias Motive Description`) 

bias_staten_island<- as.matrix(table(bias_staten_island))
bias_staten_island

                           [,1]
ANTI-ASIAN                    3
ANTI-BLACK                   17
ANTI-HISPANIC                 1
ANTI-JEWISH                  18
ANTI-MALE HOMOSEXUAL (GAY)    3
ANTI-MUSLIM                   1
ANTI-OTHER ETHNICITY          2
ANTI-WHITE                    3

barchart(bias_staten_island, main = "Bar Chart of Bias in Staten Island" , col = mypalette)